/* Now will not ZAP if new Image did not load successfully. */
/* v1.1 Changed selected frames in a 15 frame group to be more */
/* evenly spread throughout the group. Helps enhance */
/* blurring in parts of animation with more subtle motion. */
/* Changed 9-frame method to a 7-frame method. */
/* See documentation for more information */
/* User definable variables */
IMPath = 'Imagine:'
/* Don't touch anything else! */
ROOT = 'pic.'
ZERO = '0'
Options Results
Address 'OpalPaint_Rexx'
/* Check = Addlib('Rexxsupport.library'0,-30,0)
Okay 'Check =' Check
IF ~SHOW('L',"Rexxsupport.library") Then Do
If Addlib('Rexxsupport.library',0,-30,0) Then Do
Okay 'Loading Library.'
End
Else Do
Okay 'no library available'
Exit
End
IF SHOW('L:',"Rexxsupport.library") Then Do
Okay 'Library confirmed!'
End */
/* Confirm which script OP launched, and give the option to abort */
AskBool 'The BLUR-MOTION MACHINE by Carmen Rizzolo - 11/15/92\nOK to continue, Cancel to abort.'
If Result = 0 Then Exit
/* Get blurring frame-span number */
AskInt 1 2 'Choose method Number: 1 = 5-frame 2 = 7-frame\n\nConsult documentation for more information.'
If RC = 5 Then Do
Okay 'Exiting...'
Exit
End
Method = Result
/* Get Imagine project name: */
Do Forever
Askstring 'Enter the name of your Imagine project.\nDo not include pathname or ".imp" extension.\nExamples:\nPointless = Right Imagine:Pointless = Wrong Pointless.imp = Wrong.'
If RC = 5 Then Do
Okay 'Exiting...'
Exit
End
Project = Result
Finder = Exists(IMPath || Project || '.imp/')
If Finder = 1 Then Do
Leave
End
Okay 'Project dir not found! Check your spelling.'
End
/* Get rendering subproject name*/
/* LoRes = Right A = Right LoRes.pix = Wrong */
/* Imagine:Pointless.imp/A.pix = Wrong */
Do Forever
Address 'OpalPaint_Rexx'
AskString 'Enter rendering subproject name, without path and ".pix"\nExamples:\na = Right LoRes = Right Imagine:Pointless.imp/a.pix = wrong'
If RC = 5 Then Do
Okay 'Exiting...'
Exit
End
Sub = Result
Finder = Exists(IMPath || Project || '.imp/' || Sub || '.pix/')
If Finder = 1 Then Leave
Address 'OpalPaint_Rexx'
Okay 'Rendering subproject not found! Check your spelling.'
End
/* Get starting frame number */
/* 1 = Right 35 = Right pic.0001 = Wrong 0001 = Wrong */
Address 'OpalPaint_Rexx'
AskInt 1 9998 'Enter Starting Frame Number as a normal number\nExamples:\n1 = Right pic.0001 = Wrong 0001 = Wrong\nSee documentation for more information.'
If RC = 5 Then Do
Okay 'Exiting...'
Exit
End
StartFrame = Result
If StartFrame > 1 Then Do
A = StartFrame
A = A - 1
A = A / 15
A = ABS(A)
If A = Trunc(A) Then Do
Nop
End
Else Do
Okay 'Sorry, Starting number is not acceptable.\nSee documentation for more information.\nExiting...'
Exit
End
End
/* Get Ending frame number */
/* 1 = Right 35 = Right pic.0001 = Wrong 0001 = Wrong */
Address 'OpalPaint_Rexx'
AskInt 1 9999 'Enter Ending Frame Number as a normal number\nExamples:\n1 = Right pic.0001 = Wrong 0001 = Wrong\nSee documentation for more information.'
If RC = 5 Then Do
Okay 'Exiting...'
Exit
End
EndFrame = Result
A = EndFrame
A = A - 1
A = A / 15
A = ABS(A)
If A = Trunc(A) Then Do
Nop
End
Else Do
Okay 'Sorry, Ending number is not acceptable. See docs. Exiting...'
Exit
End
/* Get name for destination drawer. This drawer will be created */
/* inside the project's drawer, the same place Imagine makes it's */
/* subproject drawers */
Done = 0
Do Forever
Address "OpalPaint_Rexx"
AskString 'Enter a drawer name for destination files'
